log using "$rootpath/log/Fig2.log", replace
//Figure 2 final run
//This script for FIGURE 2: Distribution of discontinued HPV criteria

eststo clear
use "$rootpath/processed_data/state_resource_mappingV21.dta", clear

set seed 99164
gen discontinued_HPV_enforcement = 100*avg_old_code_prob
//ssc install maptile
//ssc install spmap
//maptile_install using "http://files.michaelstepner.com/geo_state.zip"
//maptile discontinued_HPV_enforcement, geo(state)
maptile discontinued_HPV_enforcement, geo(state) cutvalues(10 30 50 70) twopt(title("Percentage of Historical HPVs With Excluded Criteria") legend(title("Percentage")))
graph export "$rootpath/table_graph/Figure_2_map.pdf", replace
log close
